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3 1 ; 
ee | : 
oe | , 
; 4 : 
3 5 BEGIN : 
fa. 1! | : 
: 3 008 1; PITITITILILLLILL LLL LL LLL LLL LLL LLL Li Lili lili iii it iit } Ps 
: '@ a 2 
i; \9 1 !e rth hg A yh 1978, 1980, 1982, 1984 B * : 
oy 0011 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . | : 
3 1 0018 : - ALL RIGHTS” RESERVED. . : 
3s 66 014 1 !* THIS porn i. URN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
rin ae Bale 1 Ie LY ANCE WITH SUCH LICENSE AND WITH THE * ; 
3 1 318 1 !e INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * ; 
; 1 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY & : 
3 iy id : :* TRANSFERRED. * : 
3 '® ® . 
4 A 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; ¢ 00 § 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
; $3 00¢3 is CORPORATION. : ; 
3 it ® a 
3 $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 6 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
. a itt 1 !« . | ; 
; ee 0028 1 !* * ; 
8 9 94 1 Vee REED AAA AAA AEA AAA AAAAEREAEEREREERAERKERREEE Ps 
; 0 0030 1 ; 
3 1 0031 1 !++¢ ; 
3 4 00 ¢ 1! ; 
; 0033 1 ! FACILITY: F11ACP Structure Level 1 : 
: 4 0034 1! ‘ 
3 5 0035 1 | ABSTRACT: : 
3 6 0036 1! : 
3 7 ait fA 1/ This module processes the create function. It creates a file with the : 
3 8 0038 1! attributes requested. enters it in a directory if desired, and ; 
; 0039 1: accesses it if requested. : 
: 40 0040 1! : 
; 41 0041 1 | ENVIRONMENT: : 
3 $g 94 4 1! : 
s -& 0043 1! STARLET operating system, including privileged system services ; 
; 6446 044 1! and internal exec routines. . 
3; «645 045 1: : 
; 46 Bee 1 i- : 
foe 0047 1! : 
; 648 048 1! : 
; $7 , : AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Mar-1977 15:05 : 
3 ef 0081 ' MODIFIED BY: : 
5 3g b3§ 1! VO3-005 LMP0241 . Mark Pilan eoohor= 1764 10:42 3 
3 55 O38 : Include the FIB in the MAKE *NAMEBLOCK routine call. : 
3 6 036 1! v03-004 LMP0154 Mark Pilant, 13-Sep-1983 13:17 3 
; oF 057 1! $ 
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Set up a default protection in the created f e header 
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v03-003 
v03-002 
v03-001 


v02-004 


v02-003 


v02-002 


from the process default protection. 


ACG0329 Andre stein, 12-Apr-1983 16:05 
Fold long UIC's into ts$7, 9349 : 

ACG53759 Andrew C. Goldstein, 18-Feb-1983 16:43 
Update revision date and count on ENTER operation 

LMP0018 L. Mark Pilant, 31-Mar-1982 13:10 
Modify to use a local copy of the window complete flag. 
LMP0005 L. Mark Pilant, $b 14:30 
Added byte Limit quota check on window creation, also a 
remap is done if the create did an initial silecetion and 
Cathedral windows are desired. 

ACG0247 Andrew C. Goldstein, 23-Dec-1981 1:11 
Set revision date to creation date 

ACG0167 Andrew C. Goldstein, 7-May-1980 18:48 
Previous revision history moved to F11A.REV 


LIBRARY ‘SYSS$SLIBRARY:L1B.L32'; 
REQUIRE "SRC$:FCPDEF.832'; 
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CREAT 16-Sep-1984 00:53:11 VAX=11 Bliss-32 V4.0=742 Page 3 
vou~000 12=86b-1 984 9:35:25 DISKSVMSMASTER:CF11A.SRCICREATE .B32; 1 . (2) 
; GLOBAL ROUTINE CREATE = 
144 
' 

FUNCTIONAL DESCRIPTION: 
This routine processes the CREATE function. It creates a file with the 
attributes requested, enters it in a directory if desired, an 
accesses the file if requested. 


CALLING SEQUENCE: 
CREATE () 
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INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
CURRENT VCB: VCB of volume 
IO_PACKET: packet of this 1/9 request 


OUTPUT PARAMETERS: 
NONE 


WnN—OOw 


IMPLICIT OUTPUTS: 
P Y_FCB: FCB of file if accessed 
CURRENT WINDOW: window of file if accessed 
USER_STATUS: 1/0 status block of user 


ROUTINE VALUE: 
1 if successful 
0 if error 


SIDE EFFECTS: : ’ } 
File created, blocks allocated, directory modified, file accessed, etc. 
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BEGIN 
LOCAL 
PACKET : REF BBLOCK, !' address of 1/0 gocher 
ABD : REF BBLOCKVECTOR C,ABDSC_LENGTHI, 
' buffer descriptors 
FIB : REF BBLOCK, ! file identification block 
RESULT_LENGTH, ! length of result string from ENTER 
044 RESULT : VECTOR (20, BYTE), ' result string from ENTER 
0444 NAMEBLOCK : BBLOCK CNMBSC_LENGTH], ! name block to build RAD-50 name 
0445 IDENT_AREA : REF BBLOCK, ! pointer to file header ident area 
rey. : REF BBLOCK, ' Process yentre: Block address 
44 AR : REF BBLOCK, ! access rights block of caller 
448 MAP_AREA REF BBLOCK, =! file header map area 
449 IDX_FCB REF BBLOCK, ' FCB of index file 
7 450 : REF BBLOCK, ' FCB address 
8 451 HEADER : REF B619 K, ! address of file header 
H bees FUNCTION : BLOCK (1); ' function code qualifiers | 
1 0454 EXTERNAL 


13 | 
1b-Sep-19 4 00:53:1 VAX-11 Bliss-32 V4.0-742 Page 4 
12-808- 1 ope 90:33:58 DISKSVMSMASTER:CF11A.SRCICREATE.B32;1 . (23) 
3 108 0455 USER_STATUS VECTOR, ! 1/0 status block of user 
: 16 436 CURRENT_VCB REF BBLOCK, { VCB of volume | 
: 146 4 PRIMARY _FCB : REF BBLOCK, ' FCB of file 
s 1465 4 8 CURRENT WINDOW : REF BBLOCK, ! window for file 
; 168 4 10_PACKET : REF BBLOCK, ! 1/0 request packet 
3 14 460 FICE_HEADER REF BBLOCK, ! global address of file header 
; 148 461 NEW_FID, ' unrecorded file ID | 
: 149 166 HEADER_LBN, ' LBN of current file header 
; 150 46 SUPER_FID : BBLOCK, ! file ID of superseded file 
s 151 464 SECOND _FIB : BBLOCK ' FIB for secondary operation 
3 12 465 CLEANUP FLAGS : BITVECTOR ! ¢Leanup action f ags | 
3 12? rh ¢ SCHSGL_PCBVEC REF VECTOR ADDRESSING_MODE (ABSOLUTE); ' PCB vector 
: 155 468 2 EXTERNAL ROUTINE 
; 156 0469 FIB ! get FIB for operation 
: 157 0470 CHECK PROTECT, i Check file protection 
; 158 Reel REATE HEADER, ! create a file ID and header 
: 159 ate KSOM ' compute header checksum 
; 160 047 MARK_DIRTY ' mark buffer for write-back | 
: 161 0474 WRITE HEADER, i write file header 
8 126 0475 READ READER, ' read file header 
.- 0476 ENTER, ' enter file in directory 
: «6164 0477 COPY _NAME ! copy file name to result strin 
; 165 0478 MAKE NAMEBLOCK, ' convert name string into RAD-50 name block 
: 166 0479 GET_TIME ! get system date and time string 
: 167 0480 CREATE _FCB, i Create an FCB 
; 168 0481 CREATE_WINDOW, ' create a window 
; 169 048 MAKE ACCESS, ' complete the access 
3; 170 048 MARKDEL_FCB ' mark FCB for delete 
: 171 0484 WRITE_ATTRIB, i write attributes 
3 \7e 0485 EXTEND ' extend the file 
.- OF 0486 SAVE_CONT ' save reentrant context area 
: 174 0487 RESTORE CONTEXT, ! restore reentrant context area 
: 175 0488 RK_DECETE, i mark file for delete 
; 176 0489 NEXT_HEADER, ' read next extension file header 
.. Ore 0490 UPDATE_FCB, ! update contents of FCB 
; #178 0491 REMAP_FILE; ! remap the file completely 
; 179 oh) 
: 180 049 ; 
: «181 0494 ! Enable the deaccess cleanup if an access is taking place. 
; ine 0495 ! 
oa 496 
; 186 497 PACKET = .10_PACKET; | 
> 185 0498 FUNCTION = .PACKETLIRPSW_FUNC); 
: 186 4 IF -FUNCTIONCIOSV_ACCESSJ 
: 187 0500 THEN 
: 188 B20) BEGIN 
> 189 308 CLEANUP _FLAGSECLE_ZCHANNEL] = 1; 
: 190 050 CLEANUP~FLAGSCCLF-DELWINDOW) = 1; | 
; 191 504 END; 
: 198 206 5! Set inters to interesti trol block 
: ' Set up pointers to interesting contro ocks. 
we Bee 
: 138 509 PCB = .SCHSGL_PCBVECL.(10_ PACKETCIRPSL_PIDJ)<0,16>); 
> 19 510 2 ABD = .BBLOCK”C.PACKETLIRPSL_SVAPTE], AIBSL_DESCRIPT); 
: 198 0511 ' pointer to buffer descriptors 
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; 199 13 FIB = GET_FIB (.ABD); pointer to FIB ; 
; 91 14 2 IF .FIBCFIBSV_TRUNC) : 
; ¢ 15 3 OR (.FUNCTIONTIO aBN ERC AND NOT .FUNCTIONCIO$V_ACCESS)) | F 
; 20 16 OR (NOT “FUN TIONCT ; 
: 204 17 & AND Piotr ie Bey ER ENB 3 
; 205 18 4 5a ~PACKET TheeuN BCNT] GIR ABDSC_ATTRIB | : 
; 0¢ 519 4 OR FUNC TIONE 1080 ACCESS] | ; 
; 08 2 ? 3 ) ; | : 
: 209 5¢¢ @ THEN ERR_EXIT (SS$_BADPARAM) ; ; 
> 211 352 § iF CURRENT vCBCVCesy NOALLOC] | : 
; \¢ Be 5 THEN ERR EXIT (SS$_WRITLCK); | : 
: 14 Be $ ' Do the create if requested. Start by allocating a file number from the s 
: 1? Be 8 : index file bitmap and reading in the initial file header. ; 
: 217 0530 : 
: 218 0531 IF .FUNCTIONCIOSV_CREATE) ; 
3 19 b2e8 THEN $ 
: 220 05 BEGIN | F 
; 21 03 4 CHECK_PROTECT (CREATE_ACCESS, 0, 0); : 
; 208 8 6 HEADER = CREATE ot ADER (); | : 
> 226 0537 FIBLFIBSW_FID _NOM) = “HEABEREEATS NUM]; | 3 
: 225 0938 FIBCFIBSW-FID-SEQ)] = ,HEADERCF SEQ]: 3 
; 226 0939 FIBCFIBSW-FID-RVNJ = 0; | ; 
3 8 0349 } Now build an initialized file header in the buffer. | ; 
: 230 054 ; 
; a5 0544 HEADERCFH1$B_IDOFFSET] = FHISC_LENGTH / 2; : 
; 334 0949 HEADERLFHISB_MPOFFSET] = (FHISC_LENGTH+FI1SC_LENGTH) / 2; : 
3 § 266 HEADERLFH1 SW pTRUCLEY = FHISC_CEVEL1; : 
3 $e 054 = ,PACKETCIRPSL_AR 1; 3 
: 235 0548 ERPFHISB_UICMENBER] = . (ARBLAR 1€1)<0,8>; F 
; 336 0549 HEADERLFH1$8~UI CGROUP . CARB hit mite })<16,8>: : 
: 237 9930 IF - CARBEARBSL_UIC )<8,8> NEG | ; 
; 238 551 . (ARBCARBSL_U1CJ)<24,8> NEQ 0 2 
r} 39 $236 3 
3 40 0555 4 BEGIN ; 
> 261 0554 4 HEADERCFH1$B8_UICMEMBER) = | : 
; 4@ 0336 4 HEADER FHISB_-UICGROUP) = -7! | ; 
; re 0387 HEADERCEHI SW. FILEPROT] = .PCBCPCBSL_DEF PROT); | : 
; 46 259 CHSFILL (0, 512 = SBYTEOFFSET(FHISW_FILECHAR), HEADERCFH1$W_FILECHARI); | ; 
° | . 
; 248 561 IF .FUNCTIONCIO$V_DELETE) : 
3 rh 206 THEN HEADERLFH1$V~ “MARKDEL]) = : 
: 251 564 IF .CLEANUP_FLAGSCCLF mentiek) : 
; 26 29? THEN HEADERTFH1 $v_SPODL] = 1; : 
; 254 69 AREA = -HEADER + FHISC LENGTH + FI1$C_LENGTH; ; 
+ 255 0568 RAP “AREACFM1$B_COUNTSIZE) = 1; ; 
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MAP_AREACFM1$8_LBNSIZE) = 3; 

MAP-AREALFM1$B-INUSE] = 0; 

MAPAREALFMISB-AVAIL) = (512 = FHISC_LENGTH = FI1SC_LENGTH - FMISC_LENGTH = 2) / 2; 
NEW FID = 0; ! new file ID is no longer unrecorded 
MARR_DIRTY (. HEADER); 

CLEANUP_FLAGSCCLF_DELFILE] = 1; 

FILE HERDER = sREADER: ! record header address for cleanup 


CHECRSUM (.HE 
END; 


' If a non-zero directory ID is supplied, enter the file in the directory. 

! Otherwise, just copy down the name string (if any) into the result string. 
! Note that the directory operation is nooped on spool file operations. 

! Then convert the result string, from whatever source, into RAD-50 into the 
} file header ident area. 


IF .FIBLFIBSW_DID_NUM] NEQ 0 AND NOT .CLEANUP,FLAGSCCLF. SPOOLF ILE] 
ELSEENTER (-ABD. FIG, RESULT_LENGTH, RESULT) 

BEGIN 

KERNEL_CALL (COPY_NAME, .ABD); 

RESULT LENGTH = .ABDCABDS$C_NAME, ABD$W_COUNT]; 


SMOVE (.RESULT_LENGTH, 
- -ABDCABDSC_NAME, ABDSW_TEXT] + ABDCABDSC_NAME, ABDSW_TEXT] + 1, RESULT); 
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If access is requested, access the file. 


2 3 
$ ' Read the file header. Then copy in the generated file name string, 
287 +4 : and update the revision date and time and revision count. 
88 601 , 
$90 06 HEADER = READ_HEADER (FIBCFIBSW_FID), 0); 
90 960 MAK BLOCR (.FIB, .RESULT_LENGTH, RESULT, NAMEBLOCK); 
291 IDENT AREA = .HEADER + .HEADERLFH1SB. IDOFF SETI #2; 
$36 0605 CHSMOJE (10 etn NAME], TD NT_AREACF i 1$W_F ILENAME); 
9 Rone GET TIME (IDENT AREA F11$T_REVDATE4); 
ret4 IDERT_AREACFI1$@_REVISION]”-= .IDENT_AREACFI1$W_REVISION) + 1; 
| 
! If anew file is being created, zero the revision count again, and 
Beto copy the date into the creation date. Then write the attributes. 
1 | 
18 IF .FUNCTIONCIO$V_CREATEJ 
14 THEN 
615 BEGIN 
1 IDENT_AREACF11$W_REVISION) = 0; 
; CHSMOVE (FI1$S_CREDATE+F11$S_CRETIME, IDENT_AREACFI1$ST_REVDATE], IDENT_AREACF11$T_CREDATE)); 
3 IF .PACKETCIRP$SW_BCNT) GTR ABDSC_ATTRIB 
THEN WRITE_ATTRIB (.HEADER, .ABD, 0); 
4 
5 


IF .FUNCTIONCI10$V_ACCESS) | 
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3; SS 6 § 3 THEN 
; 3146 6 4 N 
; 315 6 g 4 FCB = KERNEL_CALL (CREATE_FCB, .HEADER); 
; 18 6 3 é PRIMARY_FCB = .FCB; 
H 18 P 0631 4 CURRENT WINDOW = KERNEL_CALL (CREATE WINDOW, .FIBCFIBSL_ACCTLI, 
3 19 6 ¢ 4 -FIBCFIBSB WSIZEJ, SHEADER -PACRETCIRPSL PID), .FCB); 
; 320 0633 4 IF .CURRENT_WIRDOW EQ O THEN ERR_EXIT (SS$_ERBYTLM); 
; 1 0634 4 KERNEL CALL (MAKE_ACCESS, .FCB, .CURRENT_WINDOW, ABD); 
; é 0635 4 IF .FUNCTIONCIOSV-DELETES 
; 06 $ 4 THEN KERNEL_CALL TMARKDEL_FCB, .FCB); 
; ¢ be ‘ END; 
; 326 0639 3 ! Now extend the file if requested. 
3 7 pene : 
3 8 641 
H 9 pees IF .FIBCFIBSV_EXTEND) THEN EXTEND (.FIB, .HEADER); 
; 064 HEADER = .FILE_H H 
; 331 0644 KERNEL_CALL (UPDATE_FCB, .HEADER); 
3 3 0645 END; 
s 23 0646 
3 34 0647 CHECKSUM (. HEADER); 
; 35 sek WRITE_HEADER (); 
3 Bead Perform the remap operation if necessary to account for any initial extend. 
3 ! 
3 065 
H ; bees IF .FUNCTIONCIOSV_ACCESS] AND .FIBCFIBSV_EXTEND) | 
; 0654 2 THEN IF .CURRENT QINDOWLWCBSV_CATHEDRAL] 
: 0629 THEN REMAP_FILE 7); | 
; 0657 ! If this is a supersede operation, delete the file that was removed during | 
3 0658 ! the enter operation above. This must be done last since we cannot undo 
3 0659 ! a delete in cleaning up from a subsequent error. We first copy the primary 
; poet context into the context save area since this is a secondary operation. | 
; 066 
; bess IF TESTBITSC (CLEANUP_FLAGSCCLF_SUPERSEDE]) | 
; 0664 THEN 
; 0665 BEGIN 
3 0666 USER_STATUSCO] = SS$_SUPERSEDE; 
; 0667 SAVE_CONTEXT (); 
: 68 CHSCOPY (FIDSC_LENGTH, SUPER_FID, 0, 
: $9 FIBSC-LENGTH - SBYTEOFFSET (FIBSW_FID), SECOND_FIBLFIB$SW_FIDJ); 
; 670 MARK_DELETE (SECOND_FIB); 
; 0671 RESTORE_CONTEXT (); 
; bees END; 
3 7 
3 674 
: 23 ¢ RETURN 1; | 
; 0677 END; ! end of routine CREATE 
TITLE tH ad 
-IDENT \Vv04-000\ 
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16-Sep-1984 00:53:1 VAX-11 Bliss-32 V4.0-742 Page 10 
19-80-1382 99:33:38 DISKSVMSMASTER:CF11A. SRCJCREATE.B32; 1 . (2) 
30 AE 9F 0014 PUSHAB RESULT : 
AF DD 001 PUSHL RESULT_LENGTH : 
3 DD 001 PUSHL FIB : 
4 FB 001 CALLS #4, MAKE_NAMEBLOCK : 
67 9A O0015A MOVZBL (HEADER) RO + 0604 
6740 5 15D MOVA (HEADER) ERO IDENT_AREA : 
OA 161 MOVC3. #10, NAMEBLOCK+6, (IDENT_AREA) + 0605 
OC Ab OF 91 PUSHAB 12( {DENT AREA) + 0606 
01 FB 0016 CALLS #1, GET : 
OA Ab 8 0166 INCW 10CIDENT_AREA) ; 0607 
38 171 TSTB =‘ FUNCTION : 0613 
0 19 17 BLSS 14$ : 
OOAF 31 0017 BRW 19$ : 
OA Ab 84 178 14%:  CLRW  10(IDENT_AREA) + 0616 
OD 28 0017B MOVC3 #13, 12(TDENT_AREA), 25(IDENT_AREA) ; 0617 
32 Ad «BI 0181 CMPW 30 (PACKET), rh} : 0619 
08 1B 00185 BLEQU 15$ : 
E D4 00187 CLRL = (SP) + 0620 
0480 8F 8B 00189 PUSHR #*M<R7,R10> : 
03 FB 0018D CALLS #3, WRITE_ATTRIB : 
06 £1 00192 15$: BBC #6. FUNCTION, 17$ > 0625 
57 DD 00196 PUSHL HEADER > 0628 
4 DD 00198 PUSHL #1 ; 
E DD 0019A PUSHL SP : 
00006 CF 9F 0019C¢ PUSHAB CREATE_FCB ; 
000000006 9F 04 FB 001A0 CALLS #4, @#SYSSCMKRNL 5 
52 50 00 001A7 MOVL RO, FCB : 
00006 CF 52 DO OO1AA MOVL FCB, PRIMARY_FCB ; 062 
52 DD OO1AF PUSHL FCB : 0632 
0c AS DD 00181 PUSHL  12(PACKET) : 
57 DD 001B4 PUSHL HEADER ; 
7E 03 A8 98 00186 CVTBL 3(FIB), -(SP) F 
68 DD OO1BA PUSHL  (FIB) : 
05 DD 0018C PUSHL #5 : 
SE DD 001BE PUSHL SP ; 
00006 CF 9F 0010 PUSHAB CREATE_WINDOW ; 
00000000G 9F 08 FB 001C4 CALLS #8, a#SYSSCMKRNL : 
00006 CF 50 00 001¢B MOVL RO, CURRENT_WINDOW ; 
05 12 00100 BNE 6 > 0633 
2A14 BF BF 00102 CHMU #10772 ; 
04 0106 RET : 
SA DD 00107 16$:  PUSHL ABD + 0634 
00006 CF DD 00109 PUSHL  CURRENT_WINDOW : 
3¢ DD 01D PUSHL FCB : | 
g DD 001DF PUSHL : 
E DD OO1E1 PUSHL SP ; 
00006 CF 9F O13 PUSHAB MAKE_ACCESS : 
000000006 9F 6 FB OO1E CALLS #6, @ASYSSCMKRN : 

11 58 E1 OO1E C #8. FUNCTION, 1 + 0635 
52 DD OO1F PUSHL FCB > 0636 
gi DD OO1F PUSHL #1 : 

E DD 166 PUSHL SP : | 
00006 cf F OO1F PUSHAB MARKDEL_FCB ; 
000000006 9F 4 F EC CALLS #4, a#SYSSCMKRNL ; | 
16 A&w 9 03 178: TSTB ¢2(F 18) : 0642 
09 1 0 06 BGEQ : 
7 oD PUSHL HEADER : 


<- 


18-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 1 
1 8ep-1984 99: 33: I DISKSVMSMASTER:CF11A.SRCICREATE.B32; ‘ _ (2 


EH 


DD A PUSHL FIB ; : 

00006 cf 3 FB oe CALLS We EXTEND : ; 

7 00006 CF D 11 18$: MOVL FILE HEADER, HEADER 3 0643) ; 

7 OD 18 PUSHL WEADER 3 0644. : 

1 DD 0021 PUSHL # : | : 

00006 ef oF oosie PUSH UPDATE FCB ; | ; 

000000006 9F 4 FB 6 CALLS A AST SSCMKRNL : ; 

7 DD 19$:  PUSHL hehe ADER > 0647 ; 

0000G CF 1 FB 00229 CALLS : ; 

00006 ct 0 FB CALLS #0, URITE THEADER > 064 F 

B 6 § BBC UNCTION, 20S > 065 ; 

16 AB 95 TSTB zetF (FI 18) ; : 

OF 18 0 A BGEQ $ : ; 

50 00006 CF D C MOVL CURRENT WINDOW, RO + 0654 ; 

05 08 Ad 06 £1 00241 , 11(R0), 2 : ; 

00006 CF 9 Fe 0246 CALLS #0. R FIL > 0655 ; 

24 000G CF : 0248 208: #5. CLEANOP_FLAGS, 21$ + 0663 ; 

0006 CF 0631 8F 3C 00251 MOVZWL #1585 i USER STATUS > 0666 : 

00006 CF 0 FB 00258 CALLS #0, SAVE_CONTEXT + 0667 ; 

3C 00 00006 CF eal 06 2c i $0 MOVCS #6, SUPER _FID, #0, #60, SECOND_FIB+4 ; 0669 : 

00006 CF 9F 00267 PUSHAB SECOND F 1B > 0670 : 

0000G CF 01 FB 00268 CALLS , MARK_DELETE : : 

00006 CF 00 FB 00270 CALLS fo: RESTORE. CONTEXT : 0671 : 

50 01 DO 00275 21$:  MOVL #1. RO > 0675 : 

04 00278 RET > 0677 ; 

; Routine Size: 633 bytes, Routine Base: $CODE$S + 0000 F 
: 

; 365 0678 1 : 
3 0679 1 END | : 

: 367 0680 0 ELUDOM : 
| 

: PSECT SUMMARY ; 
; Name Bytes Attributes : 
: SCODES 633 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 
| : 

; 

: Library Statistics : 
Bovey, een on elo so: ¢ cet) . eewenelia Symbols -------- Pages Processing ; 
A File Total Loaded Percent Mapped Time | : 
_$255$DUA28:CSYSLIBILIB.L32;1 18619 62 0 1000 00:01.9 | ; 


if: fep-1944 99:38:34 UN cSumGMASTER SCE TIAccRCICREATE.832; 109° a 


<o- 
on 


: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CREATE/OBJ=OBJ$:CREATE MSRC$:CREATE/UPDATE=(ENHS$: CREATE) 
Size: 633 code + 0 data bytes 

; Run Time: 16.3 

; Elapsed Time: 2 746.9 


; 506 
; Lexemes/CPU-Min: 17561 


; poet Bs Used: 240 pages 
; Compilation Complete 
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